% variables.m
% Assigns variable indices.

vnames = {  % Endogenous Variables:
            'cs'        % 1 consumption: Savers
            'cn'        % 2 consumption: Non-Savers
            'R'         % 3 nominal interest rate
            'i'         % 4 investment
            'k'         % 5 effective capital
            'v'         % 6 capital utilization rate
            'l'         % 7 labor
            'y'         % 8 output 
            'gc'		% 9 govt consumption
            'c'         %10 aggregate consumtpion
            'q'         %11 Lagragian multiplier for a unit of investment goods				
            'rk'        %12 real return for private k 
            'w'         %13 real wage 
            'pi'        %14 inflation 
            'b'         %15 govt debt
            'sb'        %16 b/y ratio
            'tauk'      %17 tauk
            'taul'      %18 taul
            'tauc'      %19 tauc
            'r'         %20 real interest rate 
            'z'         %21 transfers 
            'mc'        %22 real marginal cost
            'kbar'      %23 private capital
            'lambda'    %24 household Lagragian multiplier from budget constraint
            'Pb'        %25 price of bonds
            'cstar'     %26 consumption in utility function
            % Expectations:
            'xlambda'   %27 Cs(t+1)
            'xpi'       %28 pi(t+1)
            'xi'        %29 i(t+1)
            'xq'        %30 q(t+1)
            'xrk'       %31 rk(t+1)
            'xtauk'     %32 tauk(t+1)
            'xw'        %33 w(t+1)
            'xPb'       %34 Pb(t+1)
            % Shocks:            
            'uz'        %35 z shock
            'ua'        %36 general preference shock
            'ub'        %37 investment shock in adjustment costs
            'um'        %38 technology shock
            'ui'        %39 wage markup shock
            'uw'        %40 price markup shock
            'up'        %41 monetary policy shock
            'ugc'       %42 gc shock 
          };  
     
      
for j = 1:size(vnames,1)
   jnk(j,:) = strcat({'N'},vnames(j,:));
   eval([char(jnk(j,:)) ' = j;']);      
end



